home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 September
/
Ahoy_Magazine_85-09_1985_Double_L.d64
/
fish math
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
61 lines
0 goto90
2 d=int(rnd(1)*9)+1
3 e=int(rnd(1)*9)+1:i=d*e:print"";d;"[214]";e;
4 x=2:q=0:fort=1to7:pokeu,241:fortt=1to300:next:pokeu,0:fortt=1to50:next:next:goto34
8 ifq=ithen18
9 ifq<>ithen70
14 pokea,g:pokea+b,2:q=q+1:fort=170to135step-1:pokeu+1,t:next:pokeu+1,0:pokea,32:goto40
18 k=k+1:print"[147][144]great!!!":print"correct answer!":print"";d;"[214]";e;"=";i
19 print"[156]your score is now";k:fort=135to241:pokeu,t:next
20 pokeu,0:fort=1to2:pokeu,241:fortt=1to200:next:pokeu,0:fortt=1to50:next:next
21 print"[144]hit space"
22 ifpeek(197)<>32then22
23 pp=pp+1:ifpp<10then29
24 poke36869,240:print"[147] game over":print"final score:";k
25 print"you have completed ten problems without gums getting you!"
26 print"hit f1[146] to play again."
27 ifpeek(197)<>39then27
28 run95
29 print"[147]":poke36869,255
30 a=8131:b=30720:c=7680:v=36878:pokev,15:u=36876:pokev+1,238:x=1
31 fort=1to125:s=int(rnd(1)*396)+7702:pokes,5:pokes+b,0:next:h=7679
33 ifx=1then2
34 pokec+b,0:pokec+1+b,0:pokec,3:pokec+1,4:ifa=cora=c+1then55
35 wait653,1,1:ifc>8160thenpokec,32:pokec+1,32:c=7680
36 pokea,32:f=peek(197):iff<>23andf<>31thena=a-22:g=0
37 iff=31thena=a-1:g=2
38 iff=23anda<8163thena=a+1:g=1
39 ifpeek(a)=5then14
40 pokea+b,2:pokea,g:pokec,32:pokec+1,32:c=c+1:ifpeek(c+1)=5thenc=c+22
41 ifa<hthen8
42 goto33
55 l=15
56 fort=200to135step-1:pokeu+1,t:next:pokeu+1,135:fort=1to50:next:pokeu+1,0
57 l=l-1:pokev,l:ifl>5then56
58 fort=1to1500:next:pokeu-2,135:fort=1to1000:next:pokeu-2,0
60 poke36869,240:print"[147]gums got ya!":print"but don't worry,you were delicous!!"
61 print"hitf1[146] to play again"
62 ifpeek(197)<>39then62
63 run29
70 poke36869,240:ifq>ithenprint"[147]you ate too much!"
71 ifq<ithenprint"[147]you didn't eat enough!"
72 fort=241to135step-1:pokeu,t:next:pokeu,0:fortt=1to100:next:pokeu,140:fort=1to1000
73 next:pokeu,0:print"";d;"[214]";e;"=";i;:print"you ate";q
74 k=k-1:print"your score is now";k:goto21
90 poke52,28:poke56,28:clr:fori=7168to7679:pokei,peek(i+25600):next
91 restore:fort=1to20:readf:next:forg=7168to7221:readf:pokeg,f:next
92 data135,145,155,145,155,165,155,165,175,185,185,195,165,165,165,195,195,165,165,215
93 data24,40,122,114,60,24,24,60,0,12,158,253,247,144,12,0,0,48,121,191,239,9,48,0
94 data14,7,143,223,255,255,223,143,0,0,192,160,240,184,128,240,0,0,0,0,4,28,60,28,0,0,0
95 data0,0,0
100 poke36879,8:print"[147][159][166][166][166][160][166][166][166][160][166][166][166][160][166][160][166]":print"[166][160][160][160][160][166][160][160][166][160][160][160][166][160][166]":print"[166][166][160][160][160][166][160][160][166][166][166][160][166][166][166]"
101 print"[166][160][160][160][160][166][160][160][160][160][166][160][166][160][166]":print"[166][160][160][160][166][166][166][160][166][166][166][160][166][160][166]":print:print" [166][160][160][160][166][160][166][166][166][160][166][166][166][160][166][160][166]"
102 print" [166][166][160][166][166][160][166][160][166][160][160][166][160][160][166][160][166]":print"[160][160][160][166][160][166][160][166][160][166][166][166][160][160][166][160][160][166][166][166]":print" [166][160][160][160][166][160][166][160][166][160][160][166][160][160][166] [166]"
103 print" [166][160][160][160][166][160][166][160][166][160][160][166][160][160][166][160][166]":print"[158] by kevin dewey."
104 print" hit any key";:poke198,0
105 print"[144]":poke36878,15
106 restore:fort=1to20:readu:poke36876,u:fortt=1to100:next:poke36876,0
107 geta$:ifa$<>""then29
108 next
109 goto106